home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / misc / a8085.lha / A8085 V1.0 / SRC / BubbleSort.a < prev    next >
Text File  |  1995-07-31  |  509b  |  29 lines
  1. ;Bubblesort
  2.         org $1000
  3. btab:   dc.b  13,3,7,12,2,9,1,10,4,45,23,12,54,56,198,43
  4.         dc.b  200,34,11,111,22,54,122,211,245,255,44,250,166
  5. etab:   dc.b  5
  6.  
  7. start:
  8.         lxi h,btab
  9.         mvi b,etab-btab
  10.         mvi c,0
  11.         mov d,m
  12. loop:   inx h
  13.         mov a,m
  14.         cmp d
  15.         jnc noswap
  16.         mvi c,1
  17.         dcx h
  18.         mov m,a
  19.         inx h
  20.         mov m,d
  21.         mov a,d
  22. noswap: mov d,a
  23.         dcr b
  24.         jnz loop
  25.         mov a,c
  26.         cpi 1
  27.         jz  start
  28.         hlt
  29.